home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / lair of the necr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  14.2 KB  |  489 lines
  1. 1 gosub61000
  2. 10 rem *******************
  3. 12 rem **               **
  4. 13 rem **  lair of the  **
  5. 15 rem **               **
  6. 20 rem **  necromancer  **
  7. 25 rem **               **
  8. 30 rem *******************
  9. 40 :
  10. 45 rem written by rob rudd
  11. 50 rem           july 1984
  12. 55 :
  13. 60 rem translated for the commodore
  14. 65 rem            by donna k. woody
  15. 70 :
  16. 80 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
  17. 200 print"[147]"
  18. 210 lc=1
  19. 250 goto11000
  20. 300 print
  21. 301 input"===>";c$
  22. 303 cm=0:print
  23. 305 ifleft$(c$,3)="use"orleft$(c$,3)="[213]se"thencm=2
  24. 310 ifleft$(c$,1)="s"orleft$(c$,1)="[211]"thencm=3
  25. 315 ifleft$(c$,1)="n"orleft$(c$,1)="[206]"thencm=4
  26. 320 ifleft$(c$,1)="e"orleft$(c$,1)="[197]"thencm=5
  27. 325 ifleft$(c$,1)="w"orleft$(c$,1)="[215]"thencm=6
  28. 330 ifleft$(c$,4)="look"orleft$(c$,4)="[204]ook"thencm=7
  29. 335 ifleft$(c$,3)="get"orleft$(c$,3)="[199]et"thencm=9
  30. 337 ifleft$(c$,4)="quit"orleft$(c$,4)="[209]uit"thengosub60000
  31. 340 ifcm<>2thengoto435
  32. 345 print:input"[213]se what item?[160]";u$
  33. 347 ud=0:print
  34. 350 ifleft$(u$,12)="magic sword"thenud=1
  35. 355 ifleft$(u$,4)="horn"thenud=2
  36. 360 ifleft$(u$,10)="red potion"thenud=3
  37. 365 ifleft$(u$,13)="magic potion"thenud=4
  38. 370 ifleft$(u$,7)="sceptre"thenud=5
  39. 375 ifleft$(u$,12)="dragonslayer"thenud=6
  40. 380 ifleft$(u$,7)="compass"thenud=7
  41. 385 ifleft$(u$,11)="magic dust"thenud=8
  42. 390 ifleft$(u$,10)="holy water"thenud=9
  43. 395 ifleft$(u$,4)="gold"thenud=10
  44. 400 ifud=0thenprint"[215]hat?":goto300
  45. 405 goto10500
  46. 410 ifud=3thenri=2
  47. 415 ifud=4thenps=2
  48. 420 ifud=8thenmd=2
  49. 425 ifud=9thenhw=2
  50. 430 ifud=10thengl=2
  51. 435 ifleft$(c$,1)="i"orleft$(c$,1)="[201]"thengoto20000
  52. 440 ifleft$(c$,6)="[193]nswer"orleft$(c$,6)="answer"thencm=8
  53. 445 ifc$=""thengoto301
  54. 450 ifleft$(c$,3)="com"orleft$(c$,3)="[195]om"thengoto30000
  55. 455 ifcm=0thenprint"[206]o comprendo.":goto300
  56. 460 return
  57. 499 :
  58. 500 rem *** location #1 ***
  59. 501 :
  60. 510 print"[217]ou are at the entrance of the dungeon."
  61. 515 print"[201]t is humid and mucky smelling in here."
  62. 520 print"[212]here is a sign on the wall that reads:"
  63. 525 print" '[212]hou art now within the lair of the"
  64. 527 print"  everpowerful [206]ecromancer.  [212]hou shalt"
  65. 528 print"  meet thy doom.'"
  66. 530 print:print"[212]here is an exit to the east."
  67. 540 gosub300
  68. 560 ifcm=2thenprint"[206]o effect."
  69. 570 ifcm=3orcm=4orcm=6thenprint"[217]ou cannot go that direction."
  70. 580 ifcm=5thenlc=2:goto250
  71. 590 ifcm=7thengoto500
  72. 610 ifcm=9thenprint"[206]othing here."
  73. 620 goto540
  74. 999 :
  75. 1000 rem *** location #2 ***
  76. 1001 :
  77. 1010 print"[212]his room has several human skeletons"
  78. 1015 print"scattered about the ground."
  79. 1020 ifcp=0thenprint"[212]here is a compass on the ground near"
  80. 1025 ifcp=0thenprint"one of the skeletons."
  81. 1027 print
  82. 1030 print"[212]here are exits to the west, south, and east."
  83. 1040 gosub300
  84. 1050 ifcm=2thenprint"[206]o effect."
  85. 1060 ifcm=3thenlc=5
  86. 1070 ifcm=4thenprint"[217]ou cannot go that direction."
  87. 1080 ifcm=5thenlc=3
  88. 1090 ifcm=6thenlc=1
  89. 1100 ifcm=3orcm=5orcm=6thengoto250
  90. 1110 ifcm=7thengoto1000
  91. 1120 ifcm=9andcp>0thenprint"[206]othing here."
  92. 1125 ifcm=9andcp=0thenprint"[195]ompass taken.":cp=1
  93. 1130 goto1040
  94. 1499 :
  95. 1500 rem *** location #3 ***
  96. 1501 :
  97. 1510 print"[212]here is an altar in this room."
  98. 1520 ifhw=0thenprint"[193]top of the altar is a vial of holy     water."
  99. 1525 print
  100. 1530 print"[212]here are exits to the south and west."
  101. 1540 gosub300
  102. 1550 ifcm=2thenprint"[206]o effect."
  103. 1560 ifcm=3thenlc=4:goto250
  104. 1570 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  105. 1580 ifcm=6thenlc=2:goto250
  106. 1590 ifcm=7thengoto1500
  107. 1600 ifcm=9andhw>0thenprint"[206]othing here."
  108. 1605 ifcm=9andhw=0thenprint"[200]oly water taken.":hw=1
  109. 1610 goto1540
  110. 1999 :
  111. 2000 rem *** location #4 ***
  112. 2001 :
  113. 2010 print"[212]here is a statue of a kobold in here."
  114. 2020 ifsc=0andd4=0thenprint"[201]t is holding a sceptre."
  115. 2025 ifsc=0andd4=1thenprint"[212]here is a sceptre on the ground near   thestatue."
  116. 2030 print"[193] sign at the base of the statue reads:  '[198]ork over the dinero'."
  117. 2035 print
  118. 2040 print"[212]here are exits to the south and west."
  119. 2045 gosub300
  120. 2050 ifcm=2andud=10thenprint"[212]he statue let go of the sceptre.":d4=1
  121. 2060 ifcm=2andud<>10thenprint"[206]o effect."
  122. 2070 ifcm=9andd4=0thenprint"[217]ou cannot pry the sceptre away from thestatue's grasp."
  123. 2080 ifcm=9andd4=1andsc>0thenprint"[206]othing here."
  124. 2090 ifcm=9andd4=1andsc=0thenprint"[211]ceptre taken.":sc=1
  125. 2100 ifcm=3thenlc=7:goto250
  126. 2110 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  127. 2120 ifcm=6thenlc=3:goto250
  128. 2130 ifcm=7thengoto2000
  129. 2140 goto2045
  130. 2499 :
  131. 2500 rem *** location #5 ***
  132. 2505 ifd5=1andmd=0thenprint"[212]here is a pouch of magic dust on the   ground in here."
  133. 2510 ifd5=0thenprint"[212]here is a group of undead skeletons in this room."
  134. 2512 ifd5=0thenprint"[212]hey are attacking."
  135. 2515 ifd5=1andmd>0thenprint"[212]his room is empty."
  136. 2516 print
  137. 2517 ifd5=1thenprint"[212]here are exits to the east and south."
  138. 2520 gosub300
  139. 2525 ifd5=1thengoto2550
  140. 2530 ifcm=2andud=9thenprint"[212]he holy water destroyed the skeletons.":d5=1:goto2500
  141. 2540 print"[212]oo late, the skeletons begin to rip"
  142. 2542 print"all of your flesh off and have a great  feast.":goto50000
  143. 2550 ifcm=2thenprint"[206]o effect."
  144. 2560 ifcm=3thenlc=17:goto250
  145. 2570 ifcm=4orcm=6thenprint"[217]ou cannot go that direction."
  146. 2580 ifcm=5thenlc=2:goto250
  147. 2590 ifcm=7thengoto2500
  148. 2600 ifcm=9andmd>0thenprint"[206]othing here."
  149. 2610 ifcm=9andmd=0thenprint"[205]agic dust taken.":md=1
  150. 2620 goto2520
  151. 2999 :
  152. 3000 rem *** location #7 ***
  153. 3001 :
  154. 3010 print"[212]here is a glass case in the middle of  this room."
  155. 3020 ifds=0thenprint"[212]here is a dragonslayer in the the case."
  156. 3030 print:print"[212]here are exits to the north and west."
  157. 3040 gosub300
  158. 3050 ifcm=2andud=8thenprint"[212]he magic dust evaporated part of the   glass case.":d7=1
  159. 3060 ifcm=2andud<>8thenprint"[206]o effect."
  160. 3070 ifcm=3orcm=5thenprint"[217]ou cannot go that direction."
  161. 3080 ifcm=4thenlc=4:goto250
  162. 3090 ifcm=6thenlc=17:goto250
  163. 3100 ifcm=7thengoto3000
  164. 3105 ifcm=9andd7=1andds=1thenprint"[206]othing here."
  165. 3110 ifcm=9andd7=1andds=0thenprint"[196]ragonslayer taken.":ds=1
  166. 3120 ifcm=9andd7=0thenprint"[217]ou cannot break the glass case.  [201]t is obviously magic."
  167. 3130 goto3040
  168. 3499 :
  169. 3500 rem *** location #8 ***
  170. 3501 :
  171. 3510 ifd8=1andri>0thenprint"[193] dead dragon is on the floor in here."
  172. 3512 ifd8=1andri>0thenprint"[212]hen room is otherwise empty."
  173. 3520 ifd8=1andri=0thenprint"[212]he dead dragon has a red potion strung around it's neck."
  174. 3530 ifd8=0thenprint"[212]here is a ferocious looking drake in"
  175. 3532 ifd8=0thenprint"here that is about to attack."
  176. 3535 ifd8=1thenprint:print"[212]here is an exit to the east."
  177. 3540 gosub300
  178. 3550 ifd8=1thengoto3590
  179. 3560 ifcm=2andud=6thenprint"[202]ust as the drake was about to unleash"
  180. 3561 ifcm=2andud=6thenprint"it's fiery weapon, you slash it in the"
  181. 3562 ifcm=2andud=6thenprint"neck and it falls to the ground, dead."
  182. 3565 ifcm=2andud=6thend8=1:goto3500
  183. 3570 print"[212]oo late. [212]he drake spits out boiling"
  184. 3572 print"lava, which instantly fries you. [201]t's   all over.":goto50000
  185. 3590 ifcm=2thenprint"[206]o effect."
  186. 3600 ifcm=3orcm=4orcm=6thenprint"[217]ou cannot go that direction."
  187. 3610 ifcm=5thenlc=16:goto250
  188. 3620 ifcm=7thengoto3500
  189. 3630 ifcm=9andri>0thenprint"[206]othing here."
  190. 3640 ifcm=9andri=0thenprint"[208]otion taken.":ri=1
  191. 3650 goto3540
  192. 3999 :
  193. 4000 rem *** location #9 ***
  194. 4001 :
  195. 4010 ifms=0thenprint"[212]here  is a rather large stone in this"
  196. 4011 ifms=0thenprint"room with a sword driven directly into"
  197. 4012 ifms=0thenprint"the stone. [193]s you approach the sword it begins to glow."
  198. 4020 ifms>0thenprint"[212]here is nothing in this room but a     large stone."
  199. 4030 print:print"[212]here are exits to the south and west."
  200. 4040 gosub300
  201. 4050 ifcm=2andud=4thenprint"[217]ou drink the magic potion and you"
  202. 4051 ifcm=2andud=4thenprint"become extremely strong. [217]ou are able"
  203. 4052 ifcm=2andud=4thenprint"to pull the sword out of the stone."
  204. 4053 ifcm=2andud=4thenprint"[205]agic sword taken.":ms=1
  205. 4060 ifcm=2andud<>4thenprint"[206]o effect."
  206. 4070 ifcm=3thenlc=15:goto250
  207. 4080 ifcm=4orcm=5thenprint"[217]ou cannot go that direction."
  208. 4090 ifcm=6thenlc=16:goto250
  209. 4100 ifcm=7thengoto4000
  210. 4110 ifcm=9andms=0thenprint"[217]ou cannot pull the sword out of the stone."
  211. 4120 ifcm=9andms=1thenprint"[206]othing here."
  212. 4130 goto4040
  213. 4499 :
  214. 4500 rem *** location #10 ***
  215. 4501 :
  216. 4510 print"[212]his room is empty. [201]t has a door on    each of the four walls."
  217. 4520 gosub300
  218. 4530 ifcm=2andud=7thencc=2:print"[217]ou discover that the walls in here are"
  219. 4531 ifcm=2andud=7thenprint"revolving. [217]ou can use the compass to"
  220. 4532 ifcm=2andud=7thenprint"go the direction you wish."
  221. 4540 ifcm=2andud<>7thenprint"[206]o effect."
  222. 4550 ifcc>0thengoto4620
  223. 4560 x=int(rnd(1)*4)
  224. 4570 ifx=0thenlc=16
  225. 4580 ifx=1thenlc=15
  226. 4590 ifx=2thenlc=18
  227. 4600 ifx=3thenlc=11
  228. 4610 ifcm=3orcm=4orcm=5orcm=6thencc=0:goto250
  229. 4620 ifcm=3thenlc=18
  230. 4630 ifcm=4thenlc=16
  231. 4640 ifcm=5thenlc=15
  232. 4650 ifcm=6thenlc=11
  233. 4655 ifcm>2andcm>7thencc=0:goto250
  234. 4660 ifcm=7thengoto4500
  235. 4670 ifcm=9thenprint"[206]othing here."
  236. 4680 cc=cc-1
  237. 4690 goto4520
  238. 4999 :
  239. 5000 rem *** location #11 ***
  240. 5001 :
  241. 5010 ife1=1andho>0thenprint"[212]his room is empty."
  242. 5020 ife1=1andho=0thenprint"[212]here is a horn lying on the floor of   this room."
  243. 5030 ife1=0thenprint"[201]nhabiting this room is a daemon who is"
  244. 5031 ife1=0thenprint"violently advancing in your direction."
  245. 5040 ife1=1thenprint"[212]here is an exit to the north."
  246. 5050 gosub300
  247. 5060 ife1=1thengoto5090
  248. 5070 ifcm=2andud=5thenprint"[212]he sceptre banished the daemon back to"
  249. 5071 ifcm=2andud=5thenprint"his own plane of existance.":e1=1:goto5000
  250. 5080 ife1=0and(cm<>2orud<>5)thenprint"[212]oo late, the daemon attacks and rips"
  251. 5081 ife1=0and(cm<>2orud<>5)thenprint"you in half.":goto50000
  252. 5085 goto5050
  253. 5090 ifcm=2thenprint"[206]o effect."
  254. 5100 ifcm=3orcm=5orcm=6thenprint"[217]ou cannot go that direction."
  255. 5110 ifcm=4thenlc=10:goto250
  256. 5120 ifcm=7thengoto5000
  257. 5125 ifcm=9andho>0thenprint"[206]othing here."
  258. 5130 ifcm=9andho=0thenprint"[200]orn taken.":ho=1
  259. 5140 goto5050
  260. 5999 :
  261. 6000 rem *** location #12 ***
  262. 6001 :
  263. 6010 print"[212]here are two very big giants in here."
  264. 6011 print"[212]hey both see you and start your way."
  265. 6020 gosub300
  266. 6025 ifcm<>2orud<>3thengoto6120
  267. 6030 print"[212]he potion turned you invisible.  [212]he"
  268. 6031 print"giants are baffled and do nothing but"
  269. 6032 print"stand there and scratch their heads."
  270. 6040 ifps=0thenprint"[217]ou see a potion on the ground."
  271. 6045 print:print"[212]here is an exit to the north."
  272. 6050 gosub300
  273. 6060 ifcm=2thenprint"[206]o effect."
  274. 6070 ifcm=3orcm=5orcm=6thenprint"[217]ou cannot go that direction."
  275. 6080 ifcm=4thenlc=15:goto250
  276. 6090 ifcm=7thenprint"[212]here are two very baffled giants in    here.":goto6040
  277. 6100 ifcm=9andps>0thenprint"[206]othing here."
  278. 6110 ifcm=9andps=0thenprint"[208]otion taken.":ps=1
  279. 6115 goto6050
  280. 6120 print"[212]oo late. [207]ne of the giants picks you   up and crushes your little body."
  281. 6121 goto50000
  282. 6499 :
  283. 6500 rem *** location #13 ***
  284. 6501 :
  285. 6510 print"[212]his room has a large moat blocking the"
  286. 6511 print"exit on the east side.  [212]here is no way around the moat."
  287. 6520 gosub300
  288. 6530 ifcm=2andud=2thenprint"[215]ith a blow of the horn, the moat parts"
  289. 6531 ifcm=2andud=2thenprint"right down the middle, allowing you to"
  290. 6532 ifcm=2andud=2thenprint"get to the other side.":am=1
  291. 6540 ifcm=2andud<>2thenprint"[206]o effect."
  292. 6550 ifcm=3orcm=6thenprint"[217]ou cannot go that direction."
  293. 6560 ifcm=5andam=0thenprint"[217]ou walk into the moat and get attacked"
  294. 6561 ifcm=5andam=0thenprint"by crocodiles. [212]hey tear you to pieces.":goto50000
  295. 6570 ifcm=5andam=1thenlc=14:goto250
  296. 6580 ifcm=4thenlc=18:am=0:goto250
  297. 6590 ifcm=7andam=1thenprint"[212]here is a moat in this room that is"
  298. 6591 ifcm=7andam=1thenprint"parted down the middle allowing access"
  299. 6592 ifcm=7andam=1thenprint"to the exit on the east wall."
  300. 6600 ifcm=7andam=0thengoto6500
  301. 6610 ifcm=9thenprint"[206]othing here."
  302. 6620 goto6520
  303. 6999 :
  304. 7000 rem *** location #14 ***
  305. 7001 :
  306. 7010 print"[217]ou enter a very large room when"
  307. 7011 print"suddenly a voice comes from nowhere:"
  308. 7012 print"'[212]hou hath come this far, and what thou"
  309. 7013 print"didst was a mistake, for thou shalt"
  310. 7014 print"meet thy doom and forever be my slave.'"
  311. 7020 print"[211]uddenly a cloud forms before you, and"
  312. 7021 print"then clears to reveal the being of the"
  313. 7022 print"feared necromancer."
  314. 7030 print"[200]e waves his arms and begins to intone  his evil magic words."
  315. 7040 gosub300
  316. 7050 ifcm<>2orud<>1thengoto7300
  317. 7060 print"[194]efore he has a chance to cast his evil"
  318. 7061 print"spell you attack him with the glowing"
  319. 7062 print"sword. [200]itting him in his black heart,"
  320. 7063 print"you draw his lifeblood."
  321. 7070 print"[200]e lets out a deafening scream, falls"
  322. 7071 print"to his knees, and clutches his critical"
  323. 7072 print"wound. [200]e then turns to you and speaks:"
  324. 7073 print"'[212]hou hath won nothing. [201] shalt return.'"
  325. 7080 print"[200]e then falls to the ground and his bodyexplodes into nothingness."
  326. 7090 print:print"[217]ou have defeated him. [217]ou have killed"
  327. 7091 print"the dreaded necromancer. [217]ou alone have"
  328. 7092 print"lifted the curse of the necromancer."
  329. 7093 print"[212]he plague of the generations is gone."
  330. 7100 print"[212]he spell has been broken. [212]he dark"
  331. 7101 print"lands are bright. [212]he wraith of the"
  332. 7102 print"necromancer soars away... in the night."
  333. 7200 goto63000
  334. 7300 print"[212]he necromancer speaks: '[212]hou art"
  335. 7301 print"stupid, and now thou art my slave.'"
  336. 7310 print"[200]e then casts his evil spell upon you."
  337. 7311 print"[211]uddenly you feel pain like you have"
  338. 7312 print"never imagined. [212]he last thing you see"
  339. 7313 print"is the evil grin of the necromancer as"
  340. 7314 print"he watches you diein agony.":goto50000
  341. 7499 :
  342. 7500 rem *** location #15 ***
  343. 7501 :
  344. 7510 print"[217]ou have come to a north-south-west     intersection."
  345. 7520 gosub300
  346. 7530 ifcm=2thenprint"[206]o effect."
  347. 7540 ifcm=3thenlc=12:goto250
  348. 7550 ifcm=4thenlc=9:goto250
  349. 7560 ifcm=5thenprint"[217]ou cannot go that direction."
  350. 7570 ifcm=6thenlc=10:goto250
  351. 7580 ifcm=7thengoto7500
  352. 7590 ifcm=9thenprint"[206]othing here."
  353. 7600 goto7520
  354. 7999 :
  355. 8000 rem *** location #16 ***
  356. 8001 :
  357. 8010 print"[217]ou are at a four-way intersection."
  358. 8020 ifgl=0thenprint"[212]here is a bag of gold on the ground."
  359. 8030 gosub300
  360. 8040 ifcm=2thenprint"[206]o effect."
  361. 8050 ifcm=3thenlc=10:goto250
  362. 8060 ifcm=4thenlc=17:goto250
  363. 8070 ifcm=5thenlc=9:goto250
  364. 8080 ifcm=6thenlc=8:goto250
  365. 8090 ifcm=7thengoto8000
  366. 8100 ifcm=9andgl>0thenprint"[206]othing here."
  367. 8110 ifcm=9andco=0thenprint"[199]old taken.":gl=1
  368. 8120 goto8030
  369. 8499 :
  370. 8500 rem *** location #17 ***
  371. 8501 :
  372. 8510 print"[217]ou are at an east-south-west           intersection."
  373. 8520 gosub300
  374. 8530 ifcm=2thenprint"[206]o effect."
  375. 8540 ifcm=3thenlc=16:goto250
  376. 8550 ifcm=4thenprint"[217]ou cannot go that direction."
  377. 8560 ifcm=5thenlc=7:goto250
  378. 8570 ifcm=6thenlc=5:goto250
  379. 8580 ifcm=7thengoto8500
  380. 8590 ifcm=9thenprint"[206]othing here."
  381. 8600 goto8520
  382. 8999 :
  383. 9000 rem *** location #18 ***
  384. 9001 :
  385. 9003 ifpw=1andcm=3thenlc=13:goto250
  386. 9006 ifcm=4thenlc=10:goto250
  387. 9007 print"[217]ou are in a north-south passageway.":print
  388. 9010 print"[201]n the middle of the passageway there"
  389. 9011 print"is a brick wall preventing you from"
  390. 9012 print"going any further. [215]ritten in glowing"
  391. 9013 print"letters on the gate is a message:"
  392. 9015 print
  393. 9020 print"'[202]ewel on black velvet":print" [208]earl on the sea"
  394. 9021 print" [193]ltar of the [204]upine [204]ords":print" [193] riddle for thee"
  395. 9022 print" [193]nswer correctly to pass the gate":print" [193]nd be my slave for eternity'"
  396. 9030 print:print"[212]ype 'answer' to answer the riddle."
  397. 9040 gosub300
  398. 9050 ifcm=2thenprint"[206]o effect."
  399. 9060 ifcm=3andpw=0thenprint"[212]he birck wall is blocking your way."
  400. 9070 ifcm=3andpw=1thenlc=13:goto250
  401. 9080 ifcm=4thenlc=10:goto250
  402. 9090 ifcm=5orcm=6thenprint"[217]ou cannot go that direction."
  403. 9100 ifcm=7andpw=1thenprint"[217]ou are in a north-south hallway."
  404. 9110 ifcm=7andpw=0thengoto9010
  405. 9120 ifcm=9thenprint"[206]othing here."
  406. 9130 ifpw=0andcm=8theninput"[193]nswer: ";an$
  407. 9135 ifpw=0andcm=8and(an$="the moom"oran$="moon")thenprint"[210]ight. [212]he wall vanishes."
  408. 9136 ifpw=0andcm=8and(an$="the moom"oran$="moon")thenpw=1
  409. 9140 ifpw=0andcm=8and(an$<>"the moon"oran$<>"moon")thenprint"[215]rong."
  410. 9150 goto9040
  411. 10500 t=0
  412. 10510 ifud=1andms=0thent=1
  413. 10520 ifud=2andho=0thent=1
  414. 10530 ifud=3andri<>1thent=1
  415. 10540 ifud=4andps<>1thent=1
  416. 10550 ifud=5andsc=0thent=1
  417. 10560 ifud=6andds=0thent=1
  418. 10570 ifud=7andcp=0thent=1
  419. 10580 ifud=8andmd<>1thent=1
  420. 10590 ifud=9andhw<>1thent=1
  421. 10600 ifud=10andgl<>1thent=1
  422. 10610 ift=1thenprint"[217]ou do not have that item.":goto300
  423. 10620 goto410
  424. 11000 iflc=1thengoto500
  425. 11010 iflc=2thengoto1000
  426. 11020 iflc=3thengoto1500
  427. 11030 iflc=4thengoto2000
  428. 11040 iflc=5thengoto2500
  429. 11050 iflc=7thengoto3000
  430. 11060 iflc=8thengoto3500
  431. 11070 iflc=9thengoto4000
  432. 11080 iflc=10thengoto4500
  433. 11090 iflc=11thengoto5000
  434. 11100 iflc=12thengoto6000
  435. 11110 iflc=13thengoto6500
  436. 11120 iflc=14thengoto7000
  437. 11130 iflc=15thengoto7500
  438. 11140 iflc=16thengoto8000
  439. 11150 iflc=17thengoto8500
  440. 11160 iflc=18thengoto9000
  441. 19999 :
  442. 20000 rem *** inventory ***
  443. 20001 :
  444. 20010 print"[201]nventory:"
  445. 20020 ifms=1thenprint"[205]agic sword"
  446. 20030 ifho=1thenprint"[200]orn"
  447. 20040 ifri=1thenprint"[210]ed potion"
  448. 20050 ifps=1thenprint"[205]agic potion"
  449. 20060 ifsc=1thenprint"[211]ceptre"
  450. 20070 ifds=1thenprint"[196]ragonslayer"
  451. 20080 ifcp=1thenprint"[195]ompass"
  452. 20090 ifmd=1thenprint"[205]agic dust"
  453. 20100 ifhw=1thenprint"[200]oly water"
  454. 20110 ifgl=1thenprint"[199]old"
  455. 20120 goto300
  456. 29999 :
  457. 30000 rem *** commands ***
  458. 30001 :
  459. 30010 print"[195]ommands:"
  460. 30020 print:print"[211]outh ([211])","[197]ast ([197])"
  461. 30030 print"[206]orth ([206])","[215]est ([215])"
  462. 30040 print"[213]se      ","[199]et"
  463. 30050 print"[204]ook     ","[201]nventory ([201])"
  464. 30055 print"[209]uit"
  465. 30060 goto300
  466. 50000 print:print"[217]ou are dead."
  467. 50010 input"[193]nother go? ";r$
  468. 50020 ifleft$(r$,1)<>"y"andleft$(r$,1)<>"[217]"then63000(NULL)>Nlenclr
  469. 50050 goto200
  470. 50055 rem ?????
  471. 60000 print:print"[217]ou sure you want to quit?[160](y/n)":inputr$
  472. 60010 ifleft$(r$,1)<>"y"andleft$(r$,1)<>"[217]"thenreturn
  473. 60020 goto50010
  474. 61000 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  475. 61030 printspc(7)""t$:printspc(7)" [204]air of the [206]ecromancer [146]"
  476. 61051 printspc(7)""t$:print:printtab(18)"by"
  477. 61060 print:printspc(15)"[210]ob [210]udd"
  478. 61070 print:printspc(12)"[195]opyright 1985"
  479. 61080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  480. 61090 print:print"  [208]lease respect the author's rights."
  481. 61100 print:print"      [208]ress space bar to continue."
  482. 61110 forcc=1to48:getk$:ifk$=" "then61130
  483. 61120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  484. 61125 next:goto61100
  485. 61130 printc$:return
  486. 63000 rem    connect back to l.s.
  487. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  488. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  489.